home *** CD-ROM | disk | FTP | other *** search
/ Aminet 39 / Aminet 39 (2000)(Schatztruhe)[!][Oct 2000].iso / Aminet / mus / play / DelfMPEG.lha / DelfMPEG / rexx / vol < prev   
Text File  |  2000-07-27  |  328b  |  20 lines
  1. /** DelfMPEG ARexx test **/
  2.  
  3. /* usage: rx vol <volume> */
  4.  
  5. PARSE ARG volume
  6. ADDRESS DELFMPEG
  7. OPTIONS RESULTS
  8.  
  9. if volume=='' then do
  10.     say 'missing parameter <volume>'
  11.     return 20
  12. end
  13.  
  14. if ((volume<0) | (volume>200)) then do
  15.     say 'invalid value for parameter <volume> (must be 0...200)'
  16.     return 20
  17. end
  18.  
  19. SETVOLUME volume
  20.